home *** CD-ROM | disk | FTP | other *** search
/ Always 25 / Always_25_1995-09_Elysium_Sunga_pl_Side_A.d64 / gaypack xxv .run / ARCAID2 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  62 lines
  1. 0 rem:arcaid2:        e.g. 04-nov-86
  2. 10 ifgl=190then150
  3. 20 ifgl=360then350
  4. 30 rem: extract from arc
  5. 40 print"[147]         [197]xtract from an [193][210][195] file [146]"
  6. 50 print"        [201][206][211][197][210][212] [196][201][211][203] with [193][210][195] file."
  7. 60 print"  [208]ress [158]$[146] for a directory of [196]rive 8,0."
  8. 70 print" [208]ress [158][211][208][193][195][197] [194][193][210][146] to return to [205]ain [205]enu."
  9. 80 print"       [193]ny other key will continue.":poke198,0
  10. 90 geta$:ifa$=""then90
  11. 91 ifa$<>" "then110
  12. 95 print"[147] [201][206][211][197][210][212] [196][201][211][203] with [193][210][195] [193][201][196] in drive 8,0"
  13. 97 print"           and press any key."
  14. 98 geta$:ifa$=""then98
  15. 99 print"[147]";spc(15);"[204]oading..."
  16. 100 print"[144]load"chr$(34)"arc aid ?.?"chr$(34)",8";:goto590
  17. 110 ifa$<>"$"then180
  18. 120 print"[147]     [211][200][201][198][212] pauses,  [210][213][206]/[211][212][207][208] aborts"
  19. 130 print"dir":print"":gl=190
  20. 140 goto590
  21. 150 print"    [208]ress any key to return to menu.[146]":poke198,0:gl=0
  22. 160 geta$:ifa$=""then160
  23. 170 print"[147]";:run
  24. 180 input"[193][210][195] filename";f$:iff$=""thenrun
  25. 182 ifright$(f$,4)<>".arc"thenf$=f$+".arc"
  26. 210 print"[156][207]n what drive can this":input"file be found  8,0[157][157][157][157][157]";dv,dr
  27. 220 gosub380:sr$=dr$:ifsr$=""then210
  28. 230 print"[159][207]n what drive should this":input"file be de-[193][210][195]ed  8,0[157][157][157][157][157]";dv,dr
  29. 240 gosub490:ds$=dr$:ifds$=""then230
  30. 260 l=len(f$):nf$=""
  31. 280 fori=1tol
  32. 290 ifmid$(f$,i,1)=" "thennf$=nf$+"?":goto310
  33. 300 nf$=nf$+mid$(f$,i,1)
  34. 310 next
  35. 330 print"[147]arc/x"ds$+" "+sr$+nf$:print"":gl=360
  36. 340 goto590
  37. 350 poke198,0:print"    [208]ress any key to return to menu.[146]":gl=0
  38. 360 geta$:ifa$=""then360
  39. 370 run
  40. 380 dr$=""
  41. 390 ifdv=8anddr=0thendr$="a:"
  42. 400 ifdv=8anddr=1thendr$="b:"
  43. 410 ifdv=9anddr=0thendr$="c:"
  44. 420 ifdv=9anddr=1thendr$="d:"
  45. 430 ifdv=10anddr=0thendr$="e:"
  46. 440 ifdv=10anddr=1thendr$="f:"
  47. 450 ifdv=11anddr=0thendr$="g:"
  48. 460 ifdv=11anddr=1thendr$="h:"
  49. 470 return
  50. 480 end
  51. 490 dr$=""
  52. 500 ifdv=8anddr=0thendr$="a"
  53. 510 ifdv=8anddr=1thendr$="b"
  54. 520 ifdv=9anddr=0thendr$="c"
  55. 530 ifdv=9anddr=1thendr$="d"
  56. 540 ifdv=10anddr=0thendr$="e"
  57. 550 ifdv=10anddr=1thendr$="f"
  58. 560 ifdv=11anddr=0thendr$="g"
  59. 570 ifdv=11anddr=1thendr$="h"
  60. 580 return
  61. 590 poke631,13:poke632,71:poke633,207:poke635,13:poke636,13:poke198,5:goto480
  62.